home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Commo-Support / Disk-Archive / amiga-logo.dms / amiga-logo.adf / Logo / INIT < prev    next >
Text File  |  1988-12-15  |  1KB  |  60 lines
  1. ;*******************************************************************
  2. ;*  Amiga Logo Init File
  3. ;*******************************************************************
  4.  
  5. PACKAGE "INIT.PKG "~    ; used for commenting
  6. TO ~ :IGNORE
  7. END
  8.  
  9. PACKAGE "INIT.PKG "ADD1
  10. TO ADD1 :VAR
  11. MAKE :VAR 1 + THING :VAR
  12. END
  13.  
  14. PACKAGE "INIT.PKG "FOREACH
  15. TO FOREACH :LST :PROC
  16. THRU "N COUNT :LST [RUN SE :PROC ITEM :N :LST]
  17. END
  18.  
  19. PACKAGE "INIT.PKG "FORSTEP
  20. TO FORSTEP :VAR :LOW :HI :STEP :DO
  21. IF :HI < :LOW [STOP]
  22. LOCAL :VAR
  23. MAKE :VAR :LOW
  24. FOR.INNER :VAR :LOW :HI :STEP :DO
  25. END
  26.  
  27. PACKAGE "INIT.PKG "FOR.INNER
  28. TO FOR.INNER :VAR :LOW :HI :STEP :DO
  29. IF :HI < THING :VAR [STOP]
  30. RUN :DO
  31. MAKE :VAR :STEP + THING :VAR
  32. FOR.INNER :VAR :LOW :HI :STEP :DO
  33. END
  34.  
  35. PACKAGE "INIT.PKG "THRU
  36. TO THRU :VAR :CNT :DO
  37. LOCAL :VAR
  38. MAKE :VAR 1
  39. REPEAT :CNT [RUN :DO ADD1 :VAR]
  40. END
  41.  
  42. PACKAGE "INIT.PKG "WHILE
  43. TO WHILE :COND :DO
  44. TEST RUN :COND
  45. IFFALSE [STOP]
  46. RUN :DO
  47. WHILE :COND :DO
  48. END
  49.  
  50. PACKAGE "INIT.PKG "FOR
  51. TO FOR :VAR :LOW :HI :DO
  52. IF :HI < :LOW [STOP]
  53. LOCAL :VAR
  54. MAKE :VAR :LOW
  55. REPEAT (1 + :HI - :LOW) [RUN :DO ADD1 :VAR]
  56. END
  57.  
  58. BURY "INIT.PKG
  59.  
  60.